home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2002 May / CD Rom Data Mayıs 2002.iso / Freeware / Blitz Basic / data1.cab / Support / help / samples / shootemup / timer.bb < prev   
Encoding:
Text File  |  2002-04-10  |  364 b   |  28 lines
  1. Global oldtimer=MilliSecs()
  2.  
  3. While Not KeyDown(1)
  4.     Print timersec(3)
  5. Wend
  6.  
  7. Function timersec(endtime)
  8.  
  9.     stoptime=endtime*1000
  10.  
  11.     If MilliSecs()<oldtimer+stoptime
  12.         Return True
  13.     Else
  14.         Return False
  15.     EndIf
  16.  
  17. End Function
  18.  
  19. Function timermilli(endtime)
  20.  
  21.     If MilliSecs()<oldtimer+endtime
  22.         Return True
  23.     Else
  24.         Return False
  25.     EndIf
  26.  
  27. End Function
  28.